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• REM > 



IDENTIFICATION 



PRODUCT CODE 2 AC-E715I-MC 

PRODUCT NAMES CXDQAIO DQll DEC/X11 MODULE 

DATE • SEPTEMBER 1978 

MAINTAINERl DEC/Xll SUPPORT GROUP 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AID SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION* DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL* 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1973,1978 DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 

DQA IS AH IOMOD THAT WILL EXERCISE OP TO EIGHT DQ11S. DURING A SINGLE 

PASS IT MILL DO 15 CHARACTER TRANSFERS OF SEQUENTIAL 

DATA AND CHECK THE STATUS REGISTERS AND SECONDARY REGISTERS » 

IT HILL TRANSFER A 256 EIGHT BIT BINARY COUNT PATTERN 128 TIMES FOR 
EACH END PASS RECORDED* AMY ERRORS DETECTED DURING THE 
PASS ARE REPORTED ON THE CONSOLE TTY • 

REQUIREMENTS 



HARDWARES ONLY THE BASIC UNIT IS EXERCISED ; SO 

A BASIC UNIT IS NEEDED, ANY EXTRA OPTIONS ON 
THE DQ11 WILL NOT BE EXERCISED. 

STORAGE : : DQA REQUIRES: 

1. DEC I HAL WORDS S 768 

2. OCTAL WORDS: 1400 

3. OCTAL BYTES: 3000 



3. PASS DEFINITION 



ONE PASS OF THE DQA MODULE CONSISTS OF 24576- CYCLES OF 
AN INCREMENTAL DATA PATTERN TRANSFERRED AT 15* CHARACTER 
BURSTS. 

4. EXECUTION TIME* 



RUNNING ALONE ON AN 11/20 ONE PASS TAKES APPROX- 
IMATELY 20 SECONDS. NOTE: PASS TIME IS DEPENDENT UPON BAUD RATE, 

5. CONFIGURATION REQUIREMENTS* 
DEFAULT PARAMETERS: 

DEVADR: 1 VECTOR: 1 BR 1 : 5 BR2: 5 DEVCNT: 1 
USER MUST SPECIFY THE ADDRESS AND VECTOR OF THE FIRST 
DQ11 AT CONFIGURATION TIME. 

6. DEVICE/OPTION SETUP 



NO SPECIAL SET NECESSARY. 



(BASIC UNIT TESTED ONLY) 
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7. MODULE DESCRIPTION 

JU TESTS FOR THE AVAILABILITY OF UP TO EIGHT DQ11 *S 

B* INITIALIZES ALL DQl 1 *S. SETS ACCORD INLY* 

C« SETS ALL GO BITS AMD LEAVES MODULE 

D» GETS TRANS, INTERUPTS* GETS ALL RECV* INTERUPTS. 

E. CHECKS ALL STATUS REGISTERS AMD SECONDARY REGISTERS 

F. CHECKS ALL DATA* REPORTS AMY ERROR FOUND. 
G* PREPARES DATA TO TRANSMITTED AGAIN. 

H. REPEATS A THROUGH G 128 X 256 CHARS. 

J« REPORTS END PASS AND CONTINUES AS ABOVE. 

8* OPERATOR OPTIONS 



A* MODULE LOCATION DVID1 MAY BE CHANGED TO 

EXERCISE ANY COMBINATION OF DQ11S. BIT 9=DQ110 
BIT 1=DQ11 1 ...... . BIT 7=DQ11 7* 

B. IF D¥ID1=0 AT RUN TIME NO DQ11S WILL BE EXERCISED* 

9* 101 STANDARD PRINTOUTS 



NONE: ALL PRINTOUTS HAVE THE STANDARD FORMAT • 

IF YOU NEED HELP IN RUNNING MODULE REFER TC DEC/X11 DOCUMENT « 



> 
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29 OOOOOO" 

30 000000' 
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49 

50 

\\ 

si 00 

55 000044* 
*"' 000046* 
000050* 
000052* 
000054' 
000056* 
000056' 
000060* 



If 

58 
59 
60 

11 ...... 

63 000062* 

64 000064' 

65 000066* 

66 QQQQ70* 

67 000072* 

68 000074* 

69 000076' 

70 000100* 

71 000102' 

72 000102' 
~~ "00104' 



73 

?i ...... 

77 000110' 

28 oogii| ; 



0QQ10' 
OOOlOi 
00010 



79 0001_ . 

80 000116 

81 Q00120 

82 000122' 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 



04' 000000 



000000 

000000 

000332' 

000000 

000000 

000000 

000031 

000040 



.LIST 
IQMQD 
MODULE 
.TITLE 
DDXCOM 
.LIST 
********* 



SEQ<LOC, BIN 

<DQAI >,1 ( .1,5,5, ,7100,31 
140000, DQAI- ,1,1,5,5,, 7100,31 
DQAI DEC/X11 SYSTEM EXERCISER MODULE 
VERSION 6 23-MAY-78 
BIN 



******************* 



************ 



/DQAI / 
OPEN 



PRTY5+0 
PRTY5+0 



STAT: 



.ASCII 
.BYTE 
1 + 
1 + 
« BYTE 
.|YTE 

OPEN 
OPEN 
OPEN 
OPEN 
************** 

140000 






OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 
OPEN 
RESTRT 

OPEN 
OPEN 
OPEN 
31 

• REPT 



•MODULE NAME. 

;USED TO KEEP TRACK OF WBUFF USAGE 
;1ST DEVICE ADDR. 

}lSt DEVICE VECTOR. 

hST BR LEVEL. 

J2ND BR LEVEL. 

JDEVICE INDICATOR 1. 

;SWITCH REGISTER 1 

^SWITCH REGISTER 2 

;S«ITCH REGISTER 3 

JSKTTCH REGISTER 4 
*********************************************** 

;STATUS WORD . 
; MODULE START ADDR. 
5 MODULE STACK POINTER. 
•PASS COUNTER. 

# OF ITERATIONS PER PASS=7100 
LOC TO COUNT ITERATIONS 
LOC TO SAVE TOTAL SOFT ERRORS 
LOC TO SAVE TOTAL HARD ERRORS 
LOC TO SAVE SOFT ERRORS PER PASS 
LOC TO SAVE HARD ERRORS PER PASS 

# OF SYS ERRORS ACCUMULATED 
HOLDS RAN DON' # WHEN R AND MACRO IS CALLED 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
LOC TO SAVE RO. 
LOC TO SAVE Rl. 
LOC TO SAVE R2. 
LOC TO SAVE R3. 
LOC TO SAVE R4. 
LOC TO SAVE R5. 
LOC TO SAVE R6. 
ADDR OF CURRENT CSR. 
ADDR OF GOOD DATA, OR 
CONTENTS OF CSR. 
ADDR OF BAD DATA, OR 
STATUS REG CONTENTS. 
TYPE OF ERROR 
EXPECTED DATA. 
ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PER ITERATION 
WORDS FROM MEMORY PER ITERATION 
U OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUf'',aEF = 31 
MODULE STACK STARTS HERE. 
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184 
185 



.NLIST 
. WORD 

186 .LIST 

187 . ENDR 

188 000224* MODSP: 

£§g .************************************************************ 
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000010 177662 

000010 177656 

000002 177652 
177542 



000010 177616 
000010 177612 
000002 177606 
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1$: 



3$: 



MOV 
MOV 
MOV 
MOV 

BNE 1 
END$,BEGIi 



9.,WDTO 
8.,WDFR 
2, INTR 
•VIDl/RO 



177472 002432 



ASR 
BCC 
ASR 
BCC 
ADD 
ADD 
ADD 
TST 
BNE 
MOV 



RO 
1$ 
RO 
3$ 

8./WDT0 
8.,WDFK 

r6 

2$ 

DVID1, SELECT 
RESTRT 



010223 
062702 



OQOOOO' 
002421 


RESTRT : 


ENDS/ 

CLRB 


BEGIN 

SELECT+1 


002414 


SETUPl: 


MOV 
BfiQ 


SELECT/ R 1 

DROP 


mm 

002174' 


1$: 


MOV 
MOV 
MOV 
ASR 
BCS 
BEQ 


VECTOR/RO 

ADDR.R2 

|LNKTAB,R3 

2$ 

SETUP2 


000010 
000010 
000016 


2$: 


ADD 

ADD 

ADD 

BR 

MOV 


010, RO 

#10/R2 
S16/R3 

R.f / (R0) + 


177401 




MOVB 

INC 

CMP 

MOV 

CMP 

MOV 


BR2 / ( RO ) ♦ 

RO 

<R3)+,(R3)+ 

R2,(R3)+ 

(R3)*/(R2)+ 

R3/(R0)+ 


177362 
000006 




MOVB 

INC 

CMP 

MOV 

ADD 

BR 


BR1,(R0)+ 

RO 

(R3)+/(R3)+ 

R2,(R3)4- 

|6/R2 



;a WORDS TO mem per iteration 

;B WORDS FROM MEM PER ITERATION 
;2 INTERRUPTS PER ITFRATICN 
;SAVE DEVICE COUNT IN NO 

;br if at least one selected 

;kill 1st dev- already counted 
;loop till found 

/SHIFT IN KEXT BIT 
jBR IF NO DEVICE HERE 
JDOURLE tfORDS 
; DOUBLE WORDS FROM 
; DOUBLE INTERRUPTS 
; ANY MORE DEVICES ? 
;BR IF YES 

;COPY THE DEVICE SELECTION PARAMETER 
;INT0 SELECT 

;IF ZERO/ NO DEVICES SELECTED- 
;DROP THE MODULE 

JDROP THE MODULE 

; ELIMINATE IRRELEVANT BITS 

;COPY SELECT INTO PI FOR SETUP 

;IF SELECT WAS ZERO/ GO DROP THE MODULE 

?IF SELECT WAS NOT ZERO, DO MODULE PH0CESSI'. 

; LOAD RO WITH FIRST VECTOR ADDRESS 

;LOAD R2 WITH FIRST DEVICE ADDRESS 

;POINT R3 TO BEGINNING CF JSR LINK TABLE 

/ISOLATE A LINE IN THE "C'BIT 

/IF SELECTED/GO SETUP ADDRESSES 

;IF NO MORE TO BE SELECTED, 

;GO SET UP BUFFERS/QUEUES/ ETC. 

;IF MORE/UPDATE ALL REGISTERS. .THE VECTOR 

/THE ADDRESS... 

;AND THE LINK TABLE POINTER 

;CHECK TO SEE IF OTHER DEVICES SELECTED 

/LOAD THE RECEIVE ROUTINE 

;POINTER IN THE PROPER VECTOR 

/LOAD THE RECEIVER BR LEVEL 

;UPD*TE RO TO NEXT VECTCP PQUNDAFY 

; UPDATE R3 TO THE CSR INSERT LOCATION 

•LOAD THE RCV CSR INTO LINKING TABLE 

jUPDATE THE POINTER TO NEXT TNSTI-UCTION ?,»JD 

;POINT R2 TO THE TRANSMITTER CSR 

; LOAD THE TRANSMITTER ROUTINE 

;POINTER IN THE PROPER VECTOR 

•LOAD THE TRANSMIT BR LEVEL 

/UPDATE THE VECTOR POINTER 

/UPDATE THE LINK TABLE POINTER 

>LOAD THE TRANSMIT CSR INTO LINKING TABLE 

; UPDATE THE ADDRESS POINTER 

?GO SET UP NEXT DEVICE 
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251 
252 
253 



267 
268 

m 



28 



000444' 012767 002646' 001734 SETUP2: MOV 



246 
2 47 

248 000452' 
249 

250 000460' 
000466* 
000474' 
000502* 
254 000510* 
255 

256 000514' 
257 
258 
259 

260 000522' 

261 000524' 
262 

263 000526' 

264 000532* 

265 000536* 

266 000542* 



012767 002646* 001730 



2767 
2767 
2767 

3?« 



000520' 005023 



005304 
001375 



016700 
110067 



000550* 
000556* 
000564- 
000572- 
_._ 000600' 

273 000606- 

274 000610- 
275 
276 
277 
278 
279 
280 



016767 
012767 
104415 
016767 
000241 
006167 



000614- 
000616- 
000620- 
000622* 
0Q06|§: 



282^ 000654 

283 000636 
284 

285 000642 

_7 000646 

88 000654 



000666- 
000672' 

000702- 
000710- 
298 000716- 

299 

300 000720- 

301 000726" 



002666* 
002666* 
002706* 
002706' 
000154 



001724 
001720 
001714 
001710 



012703 002426' 



1$: 



002224 
002240 
177244 
002446' 



104415 000000* 002770' 



006200 
103407 
001536 
062701 
062767 
000767 
105061 

012702 



002210 
002422' 
000000* 
002166 



000010 
000020 



000005 
000020 



J 0000 
0140 



88888S 



000020 
000017 
000017 



000030 
000006 



002174 
002176 
002770' 



MOV 

MOV 
MOV 
MOV 
MOV 
MOV 

MOV 

CLR 



actvate:mov 

MOVB 



GETPA$ 

MOV 

MOV 

GETP A$ 
MOV 
CLC 
ROL 



1$: 
2$: 
3$: 



000004 
000005 



000001 
000001 



000005 5$: 



ASR 
BCS 
BEQ 
ADD 
ADD 
BR 

CLRB 
MOV 



CLR 

INCB 

DEC 

BNE 

MOV 

MOVB 

BITB 

BEQ 

MOVB 
CLR 



#XMTQUE/XMTQPI 

tfXMTQUE/ XMTQPO 

PCVQUE/RCVQPI 
#RCVQUE,RCVOPO 
#ERRQUE/ERRQPI 
#ERRQUE, EPPQPO 
#108. ,R4 

8XMTBUF/R3 

(R3) + 

R4 
1$ 

SELECT, RO 
RO/DONFLG 
ADDR,R1 
#RCVBF0/VA 

/BEGIN/ VA 
PA,RCVADR 
#SYNC,VA 
BEGIN, VA 
PA/XMTADR 

EA 
RO 

illTIAL 

#10/R1 

|20,RCVADR 

sf Rl > 

#20/R2 

PIT12,4(R1) 
Il40 / 5tRl) 



#20/R2 

Il7/1(R1) 

|l7/l(Rl) 

#30,5<R1) 
6(R1) 



;SET UP TRANSMIT QUE ENTRY(IN) 
>POINTER 

;sf.t up transmit que retrieval 
;(out) pointer 

;set up receiver que pointers 

;set up error que pointers 

; l a d r4 with number of puffer 
•locations to be cleared 
/begin clearing buffers at the 
/transmit buffer 

;zero each location and poimt p3 to 
;next word 

/have all locations been cleared? 
; if no/ clear the next one 

jload device selection parameter 
;setup transfer completion flag 
;cqpy the base address 
;get the physical address of first 
;recfiver euffer 

;get physical address from 16-pit va 

;save receive buffer physical address 

;get the physical address of transmitted suffer 

;get physical address from 16-bit va 

;save transmitter 3uffef physical address 

;be sure carry bit is clear before rotating pits 

; altgn the extended address bits in order 

;t0 set bits 13 and 14 cf the reg /err 

•rf.gister 

z I SQLATE DEVICE SELECTION FLAG IN "C M BIT 

;if selected, go i n it i at f transfer 

;if no more selected, go setup data 

; update pointer to next device address 

; update pointer to next receiver buffer 

•process next device 

;clear secondary pegisteps pointer 

; from reg/err register (bits 8-11) 

;set count to 16. for secondary r5gi5tfr 

/clearing 

;enable extended bits fcr iting< reg /erf pit 12) 

iclear bits 16 and 17 of the 
/secondary register by clf/sring 13 
;and 14 of the err/reg register 
/clear a secondary register 
;point to next secondary register 
/reduce count. are all sixteen done? 
;if no, go do next one 

;set up counter to clear char. detect regs. 

;if yes/ clear charactfr detect registers 

>is -bb option here ? 

;no dont clear it,clearing it 

;k'ipes out high order bits. 

/select secondary register 10 
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m 

337 
338 
339 

Ifl 

m 

344 
345 
346 
3 47 
348 
349 
350 



016761 

001110" 052711 000042 
001114' 000642 



177755 
000031 



001326 000006 



000006 
000005 
000005 



000006 
000005 



01270 



001122* 01270 

mm- urn 

001136" 10526 

881111= \m 

001152" 00530_ 
001154" 001364 
001156- 016— 





016700 001574 



MOVB 

CLR 

DEC 

BEQ 

DECB 

BGT 

MOVB 



BISB 

MOV 

INCB 

MOV 

MOVB 

BISB 



MOV 
MOVB 



INCB 
MOV 



BIS 
BR 



INITIAUMQV 
MOV 

1$: CMPB 
BNF. 
INCB 

5$: MOVB 
INCB 
DEC 
RtJE 
MOV 



2$: 



001174" 062701 
001200- 000772 



MOV 
ASR 
BCS 
BEQ 
ADD 
BR 



ff34,5(Rl ) 

sf R1) 

#12,S(R1) 

#BIT5,6(R1) 

#20,5(R1) 

EA/5CR1) 

RCVADR,6(R1) 
5(R1) 

I;j;sfM? 1} 

EA,5(R1) 

XMTADR/6(R1) 
5(R1) 

»-19.,6<ri) 

Isi/StRl) 

SYNC / 6(R1) 

5(R1) 

#4010, 6(R1) 




DATA 

DATA,(R1)+ 

DATA 

R2 

IS 

SELECT, R 

ADDR/Rl 
RO 

tIrset 

||0,R1 



; SELECT SECONDARY REG. 14 
; ARE ALL REGISTERS CLEAR? 



; SELECT THE NEXT PAIR OF 
;CLEAR 16. PAIRS OF RFCI 
JHIGH BYTE OF RECEIVER C 
; SELECT SECONDARY REG I ST 
; ( MISCELLANEOUS REGISTER 
;MASTER CLEAR THE DQ11 B 
^SETTING BIT 5 OF THE HI 
; ENABLE EXTENDED MEMORY 
; AND SELECT THE RECFI 
/ADDRESS REGISTER (SEC 
;SET THE EA BITS 
;LQAD ADDRESS OF RECEIVE 
/SELECT THE RECEIVER BYT 
> (SECONDARY REG. 1) 
JSET COUNT FOR 15 CHAR AC 
; SELECT THE TRANSMITTER 
;SBT THE EA BITS 
; (SECONDARY REGISTER 2) 
;LOAD ADDRESS OF TRANSMI 
; SELECT THE TRANSMITTER 
; (SECONDARY REGISTER 3) 
'LOAD TRANSMISSION BYTE 
; SELECT THE SYNC CHAR ACT 

/ (secondary register 11) 
;load the sync register 
;two copies of the sync 

;SELECT THE MISC. REGIST 
; ENABLE TEST LOOP(BIT 3" 
; SELECT 8 PITS/CHAR ACTE 



CHARACTER DETECT REGIST 
STERS 
SR 

ER 12 



SC. REGISTER 
BITS 



REG. 0) 



R BUFFER 

E COUNT REGISTER 



TERS 

RUSS ADDRESS REGISTER 



TTER BUFFER 

BYTE COUNT PEG 1 3 TEN 

COUNT 

ER REGISTER 
WITH 

CHARACTER 
ER (REG. 12) 
AND 

(1000 IN BITS o-ll) 



;ENABLE RECEIVER INTERRUPT (0 IT 5) 

? AND STRIP SYNC(BIT 1 ) 

; ADJUST POINTERS FOR NEXT DEVICE 

;POINT Rl TO BEGINNING OF TRANSMIT TEXT 

JUSE R2 AS A LOOP COUNTFR 

;IS THE DATUM THE SYNC CHARACTER? 

;IF NO, GO MOVE IT INTO THE TRANSMITTER BUFFFP 

;TF YES/ SKIP IT. 

;USING DATA/BUILD A BINARY TEST PATTERN 
;SET DATA TO NEXT CHARACTER 

;REDUCE COUNT. HAVE 15 CHARACTERS BEEN MADE? 
;IF NO, CONTINUE BUILDING TEXT • 
;IF YES, BEGIN TRANSFERS 

/LOAD DEVICE SELECTION PARAMETER INTO RO 
;LOAD BASE ADDRESS TNTC Rl 

; ISOLATE A LINE SELECTION FLAG IN "C" PIT 
;IF SELECTED GO START DEVICE 

;IF NO MORE SELECTED GO START WATCHDOG TIME R 
/UPDATE ADDRESS POINTER 
;GQ START NEXT DEVICE 
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358 001202- 005211 

359 001204' 012761 000051 000002 



001212* 000770 
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INC 
MOV 



isi^Rl) 
3$ 



; START RECEIVER (BIT 0=GG BIT) 
;ENABLE TRANSMITTER(BIT 0) AMD Ei 
?RUPT(EIT 3) ANDTR ANSM1TTFT 
?RUPT(BIT 5) 
;GQ ADJUST POINTER TO NEXT DEVICE 



RROR I NT S 
INTER- 



14- 012767 
22- 005004 



001230- 104407 
001234- 105767 



000005 001544 



oooooo- 
oooooo- 

001536 



TMRSET: 
TIMER: 

3$: 



m 8 



240- 001433 
242- 005304 

m- mm 



001260' 040367 001472 

001264' 006003 

001266* 103402 

001270' 005204 

001272' 000774 
001274' 010467 001104 



001300' 104420 000000' 002404' 
001306" 002367" 

001310- 104403 000000- 002354' 

88I1& 88H82 001434 

001324' 104410 000000' 



2$: 



MOV »5,TMRCNT 
CLR R4 

BREAKS, BEGIN 
BREAKS, BEGIN 
TSTB DONFLG 



BEQ 
DEC 
BNE 
DEC 
BNE 
MOVB 

BIC 



FINISH 

R4 

3$ 

TMRCNT 
TIMER 
DONFLG, R3 

R3, SELECT 



ROR 
BCS 
INC 



MQV^ ^ R^,NUMBA1 



R3 
2$ 
R4 

BR 

MOV 

***************** 



;LOAD THE TIMER COUNTING FACTOR 

;USING R4, RETURN TO MONITOR 6553 c TIMES 

TEMPORARY RETURN TO MONITOR.... 

; THEN CONTINUE AT NEXT INSTRUCTION. 

;IF DONFLG IS CLEAR, EACH SELECTED DEVICfc WAS 

SUCCESSFUL 

;TF SO PERFORM ENDPASS HOUSEKEEPING 
;IF NOT, REDUCE COUNT AND BREAK AGAIN 
/BREAK IF COUNT NOT EXCEEDED 
yREDUCE TIMING FACTOR 

;BREAK AGAIN IF NO TTMFOUT 

;IF TIMEOUT OCCURRED, SAVE PRESENT FLAGS 

; IN R3 

;USE R3 TO DEACTIVATE HUNG DEVICE 

;BY CLEARING ACTIVE SELECTION FLAG FROM 

;DEVICE SELECTION PARAMETER 

/DETERMINE WHICH LINE WAS 

;BAD FOR REPORTING PURPOSES 

;IF THIS IS THE LINE, R4 CONTAINS CORRECT 

/LINE NUMBER. . .GO REPORT IT 

/IF NOT, INCREMENT R4, WHICH WAS INITIALLY 
?0 FROM THE PREVIOUS LOOP 



*********** 



OTOA$, BEGIN, NUMBA1, Ml 



;CONVERT NUMBA1 TO ASCII AND 
)STORE AT Ml 



.**************************************** 



HSGN$, BEGIN, HUNG 
TST SELECT 
BNE FINISH 

ENDS, BEGIN 



r************ 



;ASCII MESSAGE CALL WITH COMMON HEADER 

;ARE THERE ANY DRIVES REMAINING? 
?IF YES, REDUCE COUNT AND CONTINUE 
;IF NOT, DROP THE MODULE 



001330' 

001330' 104413 000000' 
001334' 000167 177104 



ENDITS, BEGIN 
JMP SETUP2 



;SIGNAL END OF ITERATION. 
;MONITOR SHALL TEST END OF PASS 
;START NEXT TRANSFER 



001340' 010577 001042 



XMTINT : MOV 



R5,8XMTQPI 



/LOAD THE OFFSET TO THE CSR INTO TRANSMITTER QUE 
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001034 
001026 



000776 
000770 

000760 
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001630 
001636 



062767 
022767 
001003 
012767 
011001 
005761 
002014 
010167 
"11167 
-16167 
005067 

104405 



176426 
000000 



000000' 001546' 



000642 
000002 
002706* 



002666' 

000004 

176266 
176264 
000004 
176256 

000000* 

000246 



000634 
000626 



176260 
000000 



ADD 
CMP 
BNE 

MOV 
MOV 



JXMTQUE+20/XMTQPI 

#XMTQUE/XMTQPT 
(SP)*,R5 



1$: 

£lRQ$/REGIN,XMTSRV 

xmtsrv: my 

ADD 



/update the queue entry pointer 

;has the queue boundary been exceeded? 

;1f it has not exceeded the boundary/ 

;go defer service to level o 

;if it has* update the pointer 

; restore the previous r5 value from stack 



QUEUE UP TO CONTINUE AT XMTSRV AND RTI 



1$: 



2$: 



1$: 



CMP 
BNE 
MOV 
MOV 
TST 
BGE 
MOV 
MOV 
MOV 
CLR 



|XMTQP0,R1 
§2,XMTQPO 

JXMTQUE +2Q,XMTQPO 

tt XMTQUE, XMTQPO 
(Rl )/R0 

RO/CSRA 
(RG^ACSR 
2(R0),ASTAT 
F.RRTYP 
******* 



;UNKNOWN ERROR 



; FETCH THE OFFSET FROM THE QUEUE 
JUPDATE THE QUEUE RETRIFVAL POINTER 
;HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
; IF NO, GO PROCESS INTERRUPT 

;IF YES, RESET POINTER TO BEGINNING (JF QUEUE 
;LOAD THE CSR ADDRESS If TO RO 

;IF THERE MAS AN ERROR* BIT 15 OF REG/ ERR IS SET 
; IF NO ERROR # PROCESS THE INTERRUPT 
}0H ERROR, LOAD THE DEVICE ADDRESS INTO CSRA 
; LOAD THE CONTENTS INTO ACSR 
' LOAD THE RFGISTEP/ERPCP REG. INTO STATC 



************************************************************* 



« ***** 
CLR R4 
CLRB DONFLG 
BIC pITO/(RO) 
EX IT$ /RE GIN 



MOV 
ADD 
CMP 
BNE 
MOV 
MOV 



R5/gRCVQPI 

p/RCVQPl 

|RCVQUE+20,RCVQPI 

«RCVQUE,RCVQPI 
(SP)+,R5 



COMPENSATE FOR PRINT DELAY ON T1MFR 
;DISABLE TRANSMITTER 

;FXIT TO MONITOR. MODULE W AIT FOR INTERRUPT. 



; ENTER OFFSET INTO RECEIVER QUEUE 
/UPDATE THE RECEIVER ENTRY POINTER 
;HAS THE QUEUE BOUNDARY REE.i EXCEEDED? 
;IF NOT, CONTINUE PROCESSING 
;IF SO, POINT POINTER TC QUEUE BSC [NN TIG 
>RESTORE PREVIOUS VALUE OF R5 



£lRQ$,BEGIN/RCVSRV 



; QUEUE UP TO CONTINUE AT RCVSRV AND RTI 



RCVSRV: MOV 
ADD 
CMP 

BNE 
MOV 

IS: MOV 
TST 

BGE 
MOV 
MOV 
MOV 
CLR 



(?RCVQPO,R0 

#2,RCVGPO 

ftRCVQUF+20/MCVQP0 

"RCVQUE/RCVQPO 



2$: 



Rl/CSRA 
" " ACSR 

^ASTAT 

*********************** 

HRDER$#B EG IN/NULL 

• *********************** 

6MPB #246/{Rl) 



;HETRIEVE OFFSET FROM RECEIVER QU&UE 
;UPD ATE THE QUEUE POINTER 
;HAS THE QUEUE BOUNDARY PEEN EXCEEDED? 
;IF NOT, CONTINUE PROCESSING 
;IF SG, POINT POINTER TC QUEUE BEGIN V T ^ G 
;PLACE CSR ADDRESS IN Rl 

/WERE THERE ANY ERRORS(PIT 15 OF SEC/EPF' REG)? 
;TF NOT/CONTINUE PROCESSING 
;IF SO/LOAD BASE ADDRESS INTO CSR A 
;MOVE CONTENTS OF CSR TO ACSR 
;LOAD REG/ERR REG. CONTFNTS U'TO STATC 
UNKNOWN ERROR 

*************************************** 

DQU ERROR FLAG SET-REG/ERR IN STATC 
*************************************** 
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470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 



001642 
001644 
001650 




ILcSRA 





R1)/ACSR 
17/ERRTYP 



** * ********* 



BEQ 
MOV 
MOV 

MOV 31 // 

. *************************** 

HRDERS, BEGIN/NULL RECEIVER 
.******--'--*-'--" — -- - j - 

CMPB 

BEQ 

MOV 2(R1),ACSR 

MOV R.l,CSRA 

ADD tl, CSRA 

MOV #20,ERRTYP 
• ***************** 

HRDERS, BEGIN, NULL 
****-■■ • 4 - - • - 



; UNK NOfeN RECEIVER ERROR 
•■■"********************** 

TAT US ERROR 

********************** 



r****** 



c****** 



#254/2(Rl) 
CKDAlA 



********** ******* 



; I F NO ERRCRS, BEGIN COMPARING DATA 
;LOAD TRANSMITTER STATUS INTO ACSR 
;LOAD STATUS REGISTER ADDRESS 
; ftLTFR BASF ADDRESS TO SHOW TRANSMITTER /DO 
; UNKNOWN XMITTER ERROR 
*********************************** 

^TRANSMITTER STATUS ERROR 



i *********** 



MOV 
MOV 
MOV 

BEQ 

ADD 

DEC 

BR 

MOV 

MOV 

MOV 

CMPB 

BEQ 

MOV 

MOV 

MOVB 

MOVB 

MOV 

MOV 

MOV 



PCVBFO/RCVADR 
§15. #DAt ACT 
2|fiO),R2 

||0/RCVADR 

R§VADR/R2 

!RCVBFO,RCVADR 
XMTBUF/R3 
R2)+/(R3)+ 

fif /CSRA 

(R1)<ACSR 

-{R2J/AWAS 

-(R3)/ASB 

R2 /MAS ADR 

R3/SBADR 

ERRQPI /R5 



002102' 016705 



002706' 
000320 



000000' 
000312 



MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BLO 
MOV 

MOV 

• ************************** 

DATERS, BEGIN 

• ************ 

MOV ERRQPO/R5 



R0/(R5)+ 
R1/(R5)+ 
R2/(R5)+ 
R3/CR5)* 
R4/(R5)+ 
R5/#ERRQUE+20. 
5$ 

|ERRQUE/R5 
R5/ERRQPI 



; RESTORE BASE VALUE OF RECEIVER PUFF PR S 
;LOAD THE NUMBER OF CHARACTERS TO PE "!•:-. CK - ~ 
;LOAD THE LINE NUMBER CF THIS DQ11 
;WHEN R2 IS 0/THE CORPFCT RECEIVER BUFFER 
;HAS BEEN SELECTED 

;IF R2 IS NOT 0, POINT RCVADR TO NEXT PUFFER 
;REDUCE THE LINE NUMBER BY 1 

;GO SEE IF THE CORRECT PUFFER HAS FF^N D FT FP V IFF 

/LOAD R2 WITH THE START OF THE RECEIVER BUFF V 7 

; RESTORE BASE VALUE OF RECEIVER BUFFERS 

/LOAD P3 WITH THE START OF TRANSMITTER TEXT 

/MATCH CHARACTERS. ARE THEY THE S AN-E? 

;IF YES, GO PROCESS NEXT CHARACTE?i 

;LOAD THE BASE ADDRESS INTO CSRA 

/LOAD RECEIVER CSR CONTENTS INTO ACS! 

/LOAD THE ACTUAL RECEIVED CHARACTER 

;LOAD THE TRANSMITTED CHARACTER 

JLOAD THE CHARACTER RECEIVED ADDRESS 

;LOftD THE CHARACTER TRANSMITTED ADDRESS 

;USING R5/L0AD THE PRESENT VALUES OF THF RFG7STK 

;INT0 THE ERROR QUEUE, UNQUSUEING THEM AFTER THE 

JDATA ERROR CALL. THTS ASSURES THAT THE REGISTER 

/CONTENTS APE VALID 

;SAVE THF QUEUE OFFSET 

;SAVE THE CSR ADDRESS 

;SAVE THE PRESENT RECEIVE BUFFER PUIMtR 
;SAVE THE CURRENT TRANSMIT BUFFSP POINT^f- 
;SAVE THE TIMER COUNTDOWN 

;HAS THE POINTER EXCEEDED TH <S QUEUE POUNCAKY? 
;IF SO/DO NOT RESET POINTER 
;POINT POINTER TO BEGINNING OF QUEUE 
-RESTORE ERROR QUE ENTRY POINTER 
******************************* 

ERROR! ! ! 

************************** ******** 

;LOAD R5 WITH ERROR QUEUE RETRIEVAL POIMTEP 
RETRIEVE, USING R5/ THE FOLLOWING FROM THE F P R F P. 
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MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BLO 
MOV 
MOV 
CMPB 



{R5J+/R0 
(R5)+/R1 
(R5 )+/R2 
(R5)+/R3 
<R5)+,R4 
R5,#ERRQUE+20. 

|IrRQUE/R5 
R5, ERRQPO 
(R2)+/(R3)+ 



/QUEUE, PLACING THEM IN 
/THE OFFSET.... 



THE CORRESPONDING R E G I S T E 



000620 


4$: 


DEC 
BGT 


DAT ACT 
3$ 




RCVDON: 


CLR 


R3 


000002 
000606 


1$: 


MOV 
SEC 
ROL 
DEC 
BGE 
BICB 


2(R0)/R2 

R3 
R2 
1$ 

R3/DONFLG 


000000* 




EXITS/ 


BEGIN 


177306 


LNKTAB: 


JSR 



R5/RCV INT 


177130 






JSR 


R5, XMTINT 


177270 






JSR 



R5,RCVINT 


177112 




1 

JSR 



R5, XMTINT 


177252 




JSR 



R5/RCVINT 


177074 




2 

JSR 


R5/ XMTINT 


177234 






JSR 



R5,RCVINT 


177056 




3 

JSR 



R5/XMTINT 


177216 




JSR 



R5/RCVINT 


177040 




4 

JSR 


R5/ XMTINT 


177200 






JSR 


5 


R5/RCVINT 



/THE BASE ADDRESS. ... 

;THE CURRENT RECEIVER BUFFER POINTER 

/THE CURRENT TRANSMITTER PUFFER POINTER 

/AND THE CORRECT TIMER VALUE 

/HAS THE POINTER EXCEEDED THE QUEUE BOUNDARY? 
/IF NOT/DO NOT RESET IT 

/IF SO, PESET THE POINTER TO QUEUE BEGINNING 
/RESTORE THE RETREIVAL POINTER 
;AUTOINCREHENT THE BUFFER POINTERS TO 
;P0INT TO THE CORRECT CHARACTER 
/REDUCE CHARACTER COUNT. ARE ALL 15 DONE? 
;IF NO, DO NEXT CHARACTER 



;IF YES/ SETUP R3 TO TURN OFF FLAG IN DON FL G 
;FOR THIS LINE 

/LOAD THE LINE NUMBER INTO R2 

;USING THE CARRY BIT* CREATE A ONE-BIT *ASK 

/POINT THE MASK TO THE NEXT LINE 

;REDUCE THE LINE NUMBER 

;IF POSITIVE OR 0/ GO SHIFT BIT AGAIN' 

;IF NEGATIVE, THE MASK IS CORRECTLY ALIGNKD- 

; CLEAR THE DONE BIT FOR THIS LINE 

/EXIT TO MONITOR. MODULE WAIT FOP INTERRUPT. 

/LINK FOR RECEIVER 



/LINK 
/LINK 

/LINK 
/LINK 

/LINK 
/LINK 

/LINK 
/LINK 

/LINK 

;link 



FOR TRANSMITTER 
FOR RECEIVER 1 

FOR TRANSMITTER 1 
FOR RECEIVER 2 

FOR TRANSMITTER 2 
FOR RECEIVER 3 

FOR TRANSMITTER 3 
FOR RECEIVER 4 

FOR TRANSMITTER A 
FOR RECEIVER 5 
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5B2 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 

m 

624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 



002312' 
002316' 
002320' 
002324' 
002326' 
002330' 
002334' 
002336' 
002342' 
002344' 
002346' 
002352' 

002354' 
002356' 
002360' 
002366' 
002367' 
002375' 
002402- 



002404' 
002406' 
002410' 
002412' 
002414' 
002416- 
002420' 

002422' 
002424' 
002426' 
002446' 
002466' 
002506' 
002526' 
002546' 
002566' 
002606' 
002626' 



004567 
000000 
004567 
000000 
000006 
004567 
000000 
004567 
000000 
000007 
004567 
000000 

002360' 
177777 
042504 
040 
000006 
040 
000 
002404' 

000000 
000000 
000000 
000000 
000000 
000000 
000000 

026 
026 
000010 

mm 

000010 
000010 
000010 
000010 
000010 
000010 



002646' 000010 

" 000010 

000024 



002666- 
00270"- 




044526 042503 



052510 043516 



026 
026 



HUNG : 
MESSAG: 



Ml: 
M2: 



NUMBA1: 
XMTQPI: 
XMTQPO: 
RCVQPI: 
RCVQPO: 
ERRQPI : 
ERRQPO: 

SYNC : 

XMTBUF: 
RCVBFO: 
RCVBFl: 
RCVBF2: 
RCVBF3: 
RCVBF4: 
RCVBF5 : 
RCVBF6 : 
RCVBF7: 



XMTQUE: 
RCVQUE: 

errque: 



SELECT: 

rcvadr: 
xmtadr: 

DATACT: 
TMRCNT : 

va: 
PA: 



JSR 


JSR 


6 

JSR 


JSR 



7 

JSR 


MESSAG 
-1 

.ASCII 

. BLKB 
.ASCIZ 

. EVEN 

.WORD 

• WORD 
.WORD 
.WORD 
-WORD 
.WORD 
. WORD 

.BYTE 
.BYTE 
. BLKW 

• BLKW 
.BLKW 
. BLKW 
. BLO 
. BLKW 
. BLKW 
. BLKW 
. BLKW 



.BLKW 
.BLKW 
. BLKW 



OPEN 
OFEN 
OPEN 

.WORD 
.WORD 
. WORD 
. WORD 



R5 /XMTINT 

R5/RCVINT 

R5/ XMTINT 
R5/RCVINT 

R5/ XMTINT 





OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

26/26 
26/26 



/LINK FOR TRANSMITTER 5 

;LINK FOR RECEIVER 6 

/LINK. FOR TRANSMITTER 6 

/LINK FOR RECEIVER 7 

/LINK FOP TRANSMITTER 1 



/POINTER FOR TRANSMITTER QUEUE TNPUT 

/POINTER FOR TRANSMITTER QUEUE OUTPUT 

/POINTER FOR RECEIVER GUEUE INPUT 

/POINTER FOR RECEIVER GUEUE OUTPUT 

/POINTER FOR ERROR QUEUF INPUT 

/POINTER FOR ERROR QUEUE OUTPUT 



/TRANSMITTER CHARACTER BUFFER 



/DEVICE 
/DEVICE 
/DEVICE 
/ DEVICE 
/DEVICE 
/DEVICE 
/DEVICE 
/DEVICE 



RECEIVER BUFFER 
RECEIVER BUFFER 
RECEIVER BUFFER 
RECEIVER- BUFFER 
RECEIVER BUFFER 
RECEIVER BUFFER 
RECEIVER BUFFER 
RECEIVER BUFFER 



OPEN 
OPEN 
OPEN 
OPEN 



/TRANSMITTER SERVICE QUEUE 
/RECEIVER SERVICE QUEUE 
/ ERROR SERVICE QUEUE 



/DEVICE SELECTION PARAMETER 
/PHYSICAL ADDRESS OF RECEIVER BUFFERS 
/PHYSICAL ADDRESS OF TRANSMITTER BUFFER 
/FOR ALL DEVICES 

/COUNTER FOR NUMBER OF DATA TTEMS 
/LOCATION FOR WATCHDOG TIMER FACTOR 
/LOCATION OF VIRTUAL ADDRESS PARAMETER 
/LOCATION OF PHYSICAL ADDRESS PARAMETER 
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639 
6 40 
641 
642 



002774* 
002776' 
002777* 
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EA: 

ddnflg: 
data: 



. WORD OPEN 
.BYTE OPEN 
. BYTE 
.EVEN 



;location of extended address pits p a i? a v t t k 

/TRANSFER CO MP LET I ON Fl AC 
;USED TO RUILD TEST PATTPRN 



DQAI DEC/X11 SYSTEM EXERCISER MODULE 
XDQAI0.P11 12-0CT-78 11:54 



MACY11 30AU052) 12-0CT-78 16:30 PAGE 
CROSS REFERENCE TABLE — USER SYMBOLS 



ACSR 

ACTVAT 

ADDR 

ADDR22= 

ASB 

ASTAT 

AWAS 

BEGIN 



002777R 
002764R 
104411 
104404 
002776R 
000326R 
000014R 
002774R 



IMP 

104414 
000044R 

104405 

000050R 

002354R 



172# 
263* 
138* 
190# 
176# 
174* 
177# 
135# 
441 

190§ 
190f 
190f 
190* 
19 Of 
19 Of 
19 Of 
190| 
190| 
19 Of 
190# 
190# 
190f 
190§ 

mi 

140| 

1418 

190f 

190# 

478 

16 Of 

1701 

4*90* 
190ff 
190| 
•?fi4* 



432* 

218 

505* 

433* 

504* 

195 

452 

440 



368 
238 
230 



489# 

431* 
345* 
538* 

522 

370 

215 

193 

316 

404 

195 

508 

524 

253 

434* 

441 

32! 



436 
595# 



463* 

265 



210 
467 



462* 
346 
63 4 # 



210 
520* 

w 

465* 
552 

m* 



472* 

352 



268 
475 



271 
484 



368 
522 



369 
552 



471* 
347* 



400 

till 



480* 
640# 



63 9 « 



627# 
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1DNUM 
I NIT 
INITIA 
INTR 
LNKTAB 
MAP22S 
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MESSAG 



OTOAS = 
PA 

PASCNT 
PIRQS = 
POPSP = 
POPSP2= 
PRTY = 
PRTYO = 
PRTY1 = 
PRTY/ = 
PRTY3 = 
PRTY4 = 
PRTY5 = 
PRTY6 = 
PRTY7 = 

PSW = 

POSH = 

PUSH2 = 

RANDS = 

R ANNUM 

RCVADR 

RCVBFO 

RCVBF1 

RCVBF2 

RCVBF3 

RCVBF4 

RCVBF5 

RCVBF6 

RCVBF7 

RCVDON 

RCVINT 

RCVQPI 

RCVQPO 

RCVQUE 

RCVSRV 



104420 
002772R 

mur 

005726 
022626 
000000 
000000 
000040 
000100 
000140 
000200 
000240 
0G0300 

mm 

Hint 

024646 

104417 

000054R 

002760R 

002446R 

002466R 

mm 

002546R 
002566R 
002606R 
002626R 
002146R 
001506R 
002412R 
002414R 
002666R 
001546R 



IP 

279 

m* 

190# 
595 
13 6# 
150 

\m 

m* 

6004 
190# 
389* 
137 

72 

10 

m 

90 

90 

90 

90 

90 

90 

90 

901 

40 

90 

90 

90 

90 

ii 

M 

269 

266 

616# 

6171 

6181 

6198 

620# 

ml 

5438 
4451 

iSii 

250 
452 



341$ 

192* 
S54# 

597ff 

HP 



599# 

436 
393 
143 
174 
630 
393 
272 

421 



281* 
489 



554 

«r 

251 
454# 



467 


475 


484 






604# 










144 


145 


146 


163 


164 


176 


177 


179 


180 


181 


631 


632 


634 


635 


636 


63 7 # 










452 











559 
446* 
455* 
447 



489* 

eisn 



564 
447 

456 
449 



16b 166 
190# 605 
637 638 



167 168 
606 607 
639 



169 
608 



170 

609 



63 Iff 



569 
449* 
458* 
456 



574 
607# 
608§ 
458 



579 
62 6# 



158# 
366| 
365* 
355 
190# 
266* 
39# 
738 

m 

-371 

272* 

256 

413# 

246* 

248* 

246 

421 

599f 

6271 



507* 
211* 



246# 
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178 207 
161f 
1621 
1788 

171 1 
205* 
214# 
222 
154 
190 
156 
150 
1 

143 
144 
145 
146 
149 
148# 
163* 
164 
165 
166, 
167 
168* 
169 
270 
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214 
406 



376 

375* 

365# 

if? 

506* 

UV 

324 

341 

557 

413* 

423 

248 

423* 

602# 



612# 
635# 
270* 

Wo- 
rn* 

562 
414* 
424* 
415 

614# 



271 


636# 










H*» 


572 


577 


582 


587 


592 


415 


418* 


605# 








425 


427* 


606| 








418 


425 


427 


625# 






615# 


616# 


617# 


618ft 


619# 


62 0# 



62 Iff 



000000 
003000 



000 
001 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED : 
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